home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
asm
/
XZN-Energie_sr.lha
/
Energie
/
DaWorkBench.s
< prev
next >
Wrap
Text File
|
1996-02-11
|
902b
|
36 lines
ICONSTARTUP:
MOVEM.L D0/A0-A1/A4/A6,-(SP) ; salva i registri nello stack
SUBA.L A1,A1
MOVEA.L 4.w,A6
JSR -$126(A6) ; _LVOFindTask(a6)
MOVEA.L D0,A4
TST.L $AC(A4) ; pr_CLI(a4) stiamo eseguendo dal CLI?
BNE.S FROMCLI ; se si, salta le formalita'
LEA $5C(A4),A0 ; pr_MsgPort
MOVEA.L 4.W,A6 ; Execbase in a6
JSR -$180(A6) ; _LVOWaitPort
LEA $5C(A4),A0 ; pr_MsgPort
JSR -$174(A6) ; _LVOGetMsg
LEA RETURNMSG(PC),A0
MOVE.L D0,(A0)
FROMCLI:
MOVEM.L (SP)+,D0/A0-A1/A4/A6 ; ripristina i registri dallo stack
BSR.w MAINCODE ; esegui il nostro programma
MOVEM.L D0/A6,-(SP)
LEA RETURNMSG(PC),A6
TST.L (A6) ; Eravamo partiti dal CLI?
BEQ.S ExitToDos ; se si, salta le formalita'
MOVEA.L 4.w,A6
JSR -$84(A6) ; _LVOForbid - nota! Non serve il permit
MOVEA.L RETURNMSG(PC),A1
JSR -$17A(A6) ; _LVOReplyMsg
ExitToDos:
MOVEM.L (SP)+,D0/A6 ; exit code
MOVEQ #0,d0
RTS
RETURNMSG:
dc.l 0